home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Themes / Windows-Converted / Sports / Canucks.theme < prev    next >
Text File  |  1998-10-26  |  2KB  |  54 lines
  1. /* D5THEME
  2.  
  3.    Canucks_(high_color).theme
  4.  
  5.    Directory Opus Magellan II Theme File
  6. */
  7.  
  8. parse arg dopus_port apply_flags
  9. if dopus_port='' then
  10.     dopus_port='DOPUS.1'
  11. address value dopus_port
  12.  
  13. if apply_flags='' then
  14.     apply_flags='PFBS'
  15. else
  16.     apply_flags=upper(apply_flags)
  17.  
  18. options results
  19. options failat 21
  20.  
  21. /* Set background pictures */
  22. if index( apply_flags , "B") ~= 0 then do
  23.     dopus  set  background on
  24.     dopus  set  background "'DOPLUS:Themes/Windows/Sports/Canucks/Canucks/Canucks wallpaper.bmp'" desktop center precision exact
  25.     dopus clear background lister
  26.     dopus clear background req
  27. end
  28.  
  29. /* Set sound events */
  30. if index( apply_flags , "S") ~= 0 then do
  31.     dopus  set  sound "'Bad disk inserted'" "'DOPLUS:Themes/Windows/Sports/Canucks/Canucks/Canucks empty recycle bin.wav'" 64
  32.     dopus clear sound "'Startup'"
  33.     dopus  set  sound "'Shutdown'" "'DOPLUS:Themes/Windows/Sports/Canucks/Canucks/Canucks exit windows.wav'" 64
  34.     dopus  set  sound "'Hide'" "'DOPLUS:Themes/Windows/Sports/Canucks/Canucks/Canucks exclaimation.wav'" 64
  35.     dopus  set  sound "'Reveal'" "'DOPLUS:Themes/Windows/Sports/Canucks/Canucks/Canucks default sound.wav'" 64
  36.     dopus  set  sound "'Disk inserted'" "'DOPLUS:Themes/Windows/Sports/Canucks/Canucks/Canucks question.wav'" 64
  37.     dopus  set  sound "'Disk removed'" "'DOPLUS:Themes/Windows/Sports/Canucks/Canucks/Canucks default sound.wav'" 64
  38.     dopus  set  sound "'Open lister'" "'The Golden Era maximize.wav'" 64
  39.     dopus  set  sound "'Open buttons'" "'The Golden Era menu popup.wav'" 64
  40.     dopus  set  sound "'Open group'" "'The Golden Era menu command.wav'" 64
  41.     dopus  set  sound "'Close lister'" "'The Golden Era minimize.wav'" 64
  42.     dopus  set  sound "'Close buttons'" "'DOPLUS:Themes/Windows/Sports/Canucks/Canucks/Canucks asterisk.wav'" 64
  43.     dopus  set  sound "'Close group'" "'DOPLUS:Themes/Windows/Sports/Canucks/Canucks/Canucks critical stop.wav'" 64
  44.     dopus clear sound "'FTP close connection'"
  45.     dopus  set  sound "'FTP connect fail'" "'The Golden Era minimize.wav'" 64
  46.     dopus  set  sound "'FTP connect success'" "'The Golden Era maximize.wav'" 64
  47.     dopus  set  sound "'FTP copy fail'" "'DOPLUS:Themes/Windows/Sports/Canucks/Canucks/Canucks program error.wav'" 64
  48.     dopus  set  sound "'FTP copy success'" "'DOPLUS:Themes/Windows/Sports/Canucks/Canucks/Canucks default sound.wav'" 64
  49.     dopus  set  sound "'FTP error'" "'DOPLUS:Themes/Windows/Sports/Canucks/Canucks/Canucks asterisk.wav'" 64
  50. end
  51.  
  52. /* Refresh Opus */
  53. dopus refresh all
  54.